prolog './g011s.ijs'
NB. <./\. B -------------------------------------------------------------

randuni''

(0 0 0 1,:0 1 0 1) -: <./\. 0 0 1 1 ,: 0 1 0 1

min=: 4 : 'x<.y'

f=: 3 : '(<./\. -: min/\.) y?@$2'
,f"1 x=:7 8 9,."0 1 [ _1 0 1+  255
,f"1 |."1 x
,f"1 x=:7 8 9,."0 1 [ _1 0 1+4*255
,f"1 |."1 x


NB. <./\. I -------------------------------------------------------------

min=: 4 : 'x<.y'

(<./\. -: min/\.) x=:1 2 3 1e9 2e9
(<./\. -: min/\.) |.x

(<./\.   -: min/\.  ) x=:_1e4+?    23$2e4
(<./\.   -: min/\.  ) x=:_1e4+?4   23$2e4
(<./\."1 -: min/\."1) x
(<./\.   -: min/\.  ) x=:_1e4+?7 5 23$2e4
(<./\."1 -: min/\."1) x
(<./\."2 -: min/\."2) x

(<./\.   -: min/\.  ) x=:_1e9+?    23$2e9
(<./\.   -: min/\.  ) x=:_1e9+?4   23$2e9
(<./\."1 -: min/\."1) x
(<./\.   -: min/\.  ) x=:_1e9+?7 5 23$2e9
(<./\."1 -: min/\."1) x
(<./\."2 -: min/\."2) x


NB. <./\. D -------------------------------------------------------------

min=: 4 : 'x<.y'

(<./\.   -: min/\.  ) x=:0.01*_1e4+?    23$2e4
(<./\.   -: min/\.  ) x=:0.01*_1e4+?4   23$2e4
(<./\."1 -: min/\."1) x
(<./\.   -: min/\.  ) x=:0.01*_1e4+?7 5 23$2e4
(<./\."1 -: min/\."1) x
(<./\."2 -: min/\."2) x


NB. <./\. Z -------------------------------------------------------------

min=: 4 : 'x<.y'

(<./\.   -: min/\.  ) x=:[&.j. 0.1*_1e2+?2     23$2e2
(<./\.   -: min/\.  ) x=:[&.j. 0.1*_1e2+?2 4   23$2e2
(<./\."1 -: min/\."1) x
(<./\.   -: min/\.  ) x=:[&.j. 0.1*_1e2+?2 7 5 23$2e2
(<./\."1 -: min/\."1) x
(<./\."2 -: min/\."2) x

NB. <./\. SB -------------------------------------------------------------

min=: 4 : 'x<.y'

(<./\. -: min/\.) x=:sdot0
(<./\. -: min/\.) |.x

(<./\.   -: min/\.  ) x=:sdot0{~ ?    23$#sdot0
(<./\.   -: min/\.  ) x=:sdot0{~ ?4   23$#sdot0
(<./\."1 -: min/\."1) x
(<./\.   -: min/\.  ) x=:sdot0{~ ?7 5 23$#sdot0
(<./\."1 -: min/\."1) x
(<./\."2 -: min/\."2) x

'domain error' -: <./\. etx 'deipnosophist'
'domain error' -: <./\. etx ;:'professors in New England'
'domain error' -: <./\. etx u:'deipnosophist'
'domain error' -: <./\. etx u:&.> ;:'professors in New England'
'domain error' -: <./\. etx 10&u:'deipnosophist'
'domain error' -: <./\. etx 10&u:&.> ;:'professors in New England'

randfini''


epilog''

